(^^^ A^o^l ^Q^^ _ ^ 



■ ♦ 



const nnax=100 

type pelem=^elenn 

type elem = record 

val,pos:integer 
next,prev:pelem 



end; 

head=array[l..nnax]of pelenn 
tail=array[l..nnax]of pelenn 



elenn 


val 


pos 


next 


prev 











: k j^l ^ n J^^t c^) j>.^ir> AiLial (1 



AddElenn 








(J j) Q^jk^j jk^\r. (J jl ^ j><i (j><i AllaLial jk^\f\\ ^ lil Li) 








AddElenn( head , tail , int n , int k , int x ) 













AiUiaVl ^ head, tail jL^\ \ ^ j^l / J^^t 




AddElem( head ,tail , int n , int k , int x ) 




temp <=i new pelem 




temp^.val 




temp^.pos <=" k 




temp^.next ^™ nil 




tennp^.prev <=> nil 




if head[n]=nil then 




head[n] <=i tennp 




tail[n] <=itennp 




else 




if Head[n]^.pos > k then 




tennp^.next ^™ Head[n] 




Head[n]^.prev <==" tennp 




Head[n] <=i tennp 

L J ^ 1 




else 




pelenn p head[n]; 




while p ^ nil and p^.pos<kdo 




p <=] p^.next 




end while 




if p = nil 




tennp^.prev tail[n] 




tail[n]^.next <=] tennp 




tail[n] ^™tennp 




else 




if p^.pos = k 




print "The Elennent " , x , " Already Exist'' 




else 




tennp^.prev <=i p^.prev 




temp^.next p 




p^.prev->next ^ — i temp 




p^.prev temp 




endif 




endif 




endif 




end. 








aJj^ ^jjL Jl^jj V 





DelElem 






A a\\ 


^^JjuoLuJl (Jji) <JudLudll 




^juoLuoll ^^^^ k ^^^^ UJ^ U' J .^^ti ^^Jajuj) (j-<ijJa p ^)Jajuall (JJ^ (jl 




DelElenn( Head , Tail , int n , int k ) 




k ^ , PI jiajoJl : J^jill 
lJUI ^ head,tail jliiajix^l : ^ j^l 




DelElem (head , tail, int n, int k) 
pelenn p <=i head[n] 
if p = nil then 

print "The Line Nunnber " , n , " Has No Elennents 

else 

while p ^ nil and p^.pos ^ k 

p <=i p^.next 
end while 
if p=nil then 

print "There Is No Elennent In Position : ", k 
else 

if p = head[n] then 

head[n] <=" head[n]^.next 
delete(p) 

else 

if p = tail[n] then 

tail[n] <=" tail[n]^.prev 
delete(p) 

else 

pelenn pl<=i p^.prev 
pl^.next<;=i p^.next 
p^.next^.prev<=] pi 
delete(p) 

endif 





endif 

endif 

end. 










■ jU..Sfl a U J. ^V, jr-, ^ ^Mj^l ^3 


SearchElenn 








Aii^ jI^^I j> ^"it 4,uiluJl jir^V\r. ^jliluj 








SearchElenn ( head , int n , int x ) 




. Head ^ ji^^l , x , n : J^^l 
nil ^ Vlj o^j^j JU. ^ j^^iixll 2^1^11 ^ : ^ j^l 




SearchElenn ( head , int n , int x ) 
pelenn p <J=i head[n] 
while (p ^ nil) and ( p^.val ^ x) 

p ^zi p^.next 
end while 
return p 

end. 












; Li ^)iajuj (j><i j> .^I'lrll ^J^^^ C_fli^ ^4 


DelRow 






4 



P (J^^ J J ^CllSj^^ ^LoiA (Jj^'i^ ^^liJLudJ J f\ ^^j-lc ^aIuj 
















DelRowf head int n ) 

1 1 % V V I II Xm* W4 ■ IIIV II f 


^lill / UjIj 






* c V*^^ 1 ^ oiluj UjV ?r )^ 9 -la-Luj 9 .-A Head ^ ^ij^^a-tJI ■ / 




DelRow(head, int n) 




pelem p <=i nil 




while head[n] ^ nil 




p <==" head[n] 




headTnl^.Drev / — i nil 




head[n] Head[n]^.next 




delete(p) 




end while 




end. 








^nil -i^ ajjLoi-o n jinuiti ^ j> .^'ir. (J ji 4^<ij5 ^ u .^'i ^7 









AddElennents 






^ x\ll 



A AiLjaU ^ jij ^^^£1 Head ^ jij^-^-alt ^ J j' V j' ^ 

(^jli ^>iajuj Jl^ jJ MAX L>^ J*^' L>^ (jq^Vuo jinuiti IjlA JjL^I JUC j 

> H ^ ^ ^ A ''\A\^ ^ l> .0 (,J^ ^ ^J'N ^ l> .ol W \\ (^Jj^ A^ J^A'^ A ^.^^ 1 k k\A\\ (^Jj^ I^Vl > n 

LLLoi UUaji^ ^1 AddElem ^Ij^V' 








AddElennents( head , tail , int nunn_of_elem) 




. l^LjaU ^jSioi ^1 jjjic^ Jloj (^ill J num of elem 
j.L^UyJt AiLial Ak. ->(^ iV. JjjbLill ^aibuj tajl head ji^^a^l ■ ^^p-^l / lJ^^I 




AddElennents( head , tail , int nunn_of_elenn) 
int val,pos,row,i 
row ^ 1 0 

while head[row] ^ nil && row < MAX do 

row++ 
end while 
if row = MAX then 

print " There Is No Ennpty Rows !! " 

else 

fori ^ — iltonunn of elenn do 

print "Enter The Value You Want To Add It : " , read(val) 
print "Enter The Position : " , read(pos) 
AddElenn( head , tail , row , pos , val ) 
end for 
endif 

end. 




jiajuj ^jJ V (^i J-^Ur. ^^^Ic ^ Head ^ J^>.^^ti jiajuol ^-UL^ lil -1 

. Aja jx^Uxl] A^LJab ^ jL ^ jli 

1 • 1 1 . '1 \ '1 *I ♦ i 1 • 1 i 1 ^ J i I 1 1 i 1 • \\\ 
j.^l /j^ J^^^ ^f-ljQl - jQUi^A 'J^''' A I J IM _v 









:^lill£ ^ n=3 (> Oi^W^l 



{ (1,2,3) (1,3,2) (2,3,1) (2,1,3) (3,2,1) (3,1,2) } 



(jjj^l ASi\!jl\ ^^ jVI <JJ*JI ^'^J^l U-a 6J-a ^ jiajJaiui Ijj*^ Ajlt J j^^aaJl (3,1,2) Jj-^' u! 

I 111 2 I I 3 : 



Jliill ^ 1.2.3 ^^j^^ Jl^Jl 



3 I 



2 : 

□ 



3 ^Ij^l 



2 ^^j^^ uj^ 1 ^^j^^ o^*^ 
3.1.2 cS^^i 



:^Ull£ n=4 (J=>-1 c> dj-^W^I 



{{1,2,3,4)(1,2A3)(1,3,2,4)(1,3A2)(1,4,2,3){1,4,3,2)(2,1,3,4)(2,1A3)(2,3,1,4)(2,3A1) 

(2A3,1)(2,34,4)(34,2A(3,1A2)(3,2,1,4)(3,2A1)(3A1,2)(3,4,2,1)(44,2,3)(4,1,3,2) 

{4,2,1,3)(4,2,3,1)(4,3,2,1)(4,3,1,2)} 



Check 


Procedure name 


Ull^l 


Task 


[) jA L_fl^p^l (JJ^ LoAlc. Jj^^alc ^ > >i J E L_fl^p^l (JJ^ 


Description 




Precondition 


Bool check(string m) 


Procedure prototype 


c-fl jU^ aLA^ (string m): J^^l 
AiuoLudll <SL^ ^^^ic Jjii ^^^1 Boolean ^'^^^^ ^liil) aaju 


Parameter 
description 









Algorithm 


Bool check(string str) 
!-n. 








stack s; 








Boolean b=true ; 








While (i < str.lengthO) and ( b ) do 










/ if ( nn[i] = E) then 










s.puch(l) 










else 










^ if ( s.isEnnptyO) then 










1 b=false; 










; else 










1 s.popO; 










, i=i+l; 








end{while} 








return b ; 




end{check} 






postcondition 


Lo..!^ ^t J ^^)iaJj E jA L_flj^^t (Jj^ LoAac ^t J ^JJ ^t^ ^^^ic ^LojcIj (J^t (J^-<i^ 

AlLLk <LjdLudlli 


Alternative 





n 




limitTime 


^jll c^j^ H[a,b] : ^jVi AijL.^ 


H[l..n,l..n] 


^ j!>Ul (>jil jA Hl[a] ^ u:J*^WJl 


Hl[l..n] 




T[l..n] 



: n=3 u^j^ HI 



1 

2 20 

3 30 



: n=3 u^J^H Aiji-^l 





1 


2 


3 


1 


0 


15 


2 


2 


15 


0 


20 


3 


2 


20 


0 



(_J^I (j-a 4j£-a<iill (J _jlaJl ^j-'-^ "SJ*"^' J^' 'Sj^j'j^' (J-*^ ^ji'^i'un Vjl -3 

: LimitTime = 45 o^J^j ^ ji^sji^i 




; A (J jl^l ^j^T^ "SJ^J^ 



Try 



^jjjuUll ^AA^ ^1 ^ JLj^V l^Llil ^j^-<^l (Jjiall ^AA^ ^W^^ 



Try(int location ,float time , int i ) 



: jl ciii^ global clkjL^^ Tj Hlj H cAAjL^\ - i 

^AA^ ^>f^ ^^>^J l)^^ ^ jQ^ J cJ^l ^ jQ^ "f Ai jQ^ 

■f-e^ jjj^l L-i^l jll ojxjUII ^i^ic. Jl<ij global J J n - 2 
UlU. djik:. ji^l ji<JI 2^U1I ^ J jL^j ^9^-^ J location — 3 
cjVI ^^^i^ ^ jll Jl<Lj time — 4 

, jVI ^^5!^ ^^^^ U jj^ (jj^l oj^uUll jijic. Ji^ jiljic. i — 5 

Try(aO,0) 



rTry(int location , float time , int i ) 
begin 

do 

k <r k+1 
if (location=0) 

Temp^ Hl[k] 
Else 

Tennp ^ tinne+ H[location,k] 
vendif 

if(T[k]=0) and (Tennp <=linnitTinne) 
T[k] ^ i+1 
if(T[k]=n) 

print(T) 
else 

Try(k,Tennp,i+l) 
T[k] ^ 0 
endif 
Vwhile ( k< n) 
endTry 



LimitTime cJ^I Jj^ -i^j^ ^ ^j:? c^^l J^L^I ^ ^jill 1^ ^ 
<^ cjU^ jjI jiJI s j£a Liii^ LimitTime -^1 ^ cKil 1^ jjW^j 

me -51 

: LimitTime lJ^I Jj^a-Ia^ 



Greedy 

















Greedy(H,HlJ,n) 



1^ ci^ji C-ili ^ J AlojVI cijli ji.^ :H,H1 



Greedy(H,HlJ,n) 
Begin 
K^O 

While !<< n do 
Begin 

minTime <- °° 
If l< = Othen 
f for i = 1 to n do 

if minTime > Hl[i] 
minTime ^ Hl[i] 
location ^ i 
endlf 
, endFor 
else 

for i ^ 1 to n do 

if ( i != location) and (H[iJocation] < minTime) and (T[i]=0) 
minTime ^ H[i,location] 
temp ^ i 
endlf 
endFor 
v^location ^ temp 
endif 
k ^ k+1 
T[location] ^ k 
endWhile 
\ print T 
end. 



^ jllikj IAiaII ^jjdij ^^^io AaIxj S^Ij j^Jall AaajjI (jl 



N-2 C5^^ ^1^^ 



; c Try ^1 j^^l L>^ ^l^jiiojl (J^ ^1 (J^jsl^ 




Cost (Try) = [n (n-1) (n-2) (n-3) (1)] c 

= n! c 
Cost(Try) = 0( n" ) 



CjI^ LgjI ^1 



Cost (Greedy) = 0{n^) 



JjVli jjll jjiiij AiKj Jalj jAsl) A^Jjl j^l -1 

^^gjuil Aiaau Ciljia Lcl O(n^) J'^ J:^^ ^J-^ L>^ ^''a*" Clljl 

0(n") 



( 360 / 5 = 72 ) o^h-j^72 iS j ci^LuiLouJI 




^ Jib ^ jLj Aj^a^u^ j1:ic.I£ Li cIjIjjIji^I a] jj-<ujuj ^^ill MoveTo( X , y ) -^t ! J j^^ 
(0,0) ^jll ^ Jib ^ jiijoi MoveTo(0,0) lui^iLail lil !^ 4 Ui\\\ cilli ^jll 



ia^ ^ j^j Lo AJaij cijIjjI^I jjaIuj ^^ill LineTo( x , y ) -^t ; 



^1 j^i : IjIIj 



Draw 








J jiaj (x,y) cjUjI^I ^liill jj-oioj 

180-2*72-36 cjV 36 ^Uf-il jj^ 2- ^3jl jil 

72 ^ ^jl^^l J jiall ^jjdiij ciill^l 
36 cjUix^i ^ ^jjij^i 

n-i n -Slj ( 




L_J jILxaII 




Draw { int n , int x , int y , int h) 









Draw (int n, int x, int y, float h) 




If (n>0)then 




MoveTo(x,y); 




LineTo(x+h,y); 




MoveTo(x,y); 




LineTo(x+cos(72)*h,y+sin(72)*h); 




MoveTo(x,y); 




LineTo(x+cos(72)*h,y-sin(72)*h); 




MoveTo(x,y); 




LineTo(x-cos(36)*h,y+sin(36)*h); 




MoveTo(x,y); 




LineTo(x-cos(36)*h,y-sin(36)*h); 




Draw(n-l,x + h,y, h/3); 




Draw(n - 1 , x + cos(72)*h , y + sin(72)*h , h/3); 




Draw(n - 1 , x + cos(72)*h , y - sin(72)*h , h/3); 




Draw(n - 1 , x - cos(36)*h , y + sin(36)*h , h/3); 




Draw(n - 1 , x - cos(dd) h , y - sin(3D) h , n/3); 




pnrilf 

\Z\ \\a\\ 




End. 








Sa^I j ^^>il c5^>^l l3^>^ JrJ ^ 





I ^ Ag A A h^^La 

4-^^ c5^^Wj ^1^1 uj^ x+cos(..) -SI J x+sin(..) -SI s^l^ ^ jl 



